home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: MegaDisc / MegaDisc 41 (1994-09)(MegaDisc Digital Publishing)(AU)(Disk 2 of 2).zip / MegaDisc 41 (1994-09)(MegaDisc Digital Publishing)(AU)(Disk 2 of 2).adf / ARexx_&_HBook / MiniLinks / Script1 < prev    next >
Text File  |  1994-08-09  |  3KB  |  60 lines
  1.               M i n i L i n k s     by `John Collett`           `Three gadgets`
  2.                                                                  `Arrow keys`
  3. Click on any underlined chunk to see a note about it.               `Colours`
  4.     
  5. This is another exploration of the idea of `hypertext`, but
  6. different in several ways from others I have seen or read about.
  7.  
  8. The central idea of clickable chunks of text remains, with underlining
  9. in a contrasting colour to indicate them.  As you will see when you 
  10. click on any of them, that idea is applied a second time to show which
  11. chunks have already been used.
  12.  
  13. Run through the `sample scripts` provided - four in this set, and two
  14. in a separate 'Science' set.  You can also examine those scripts via a
  15. text editor, which saves me having to explain it all.  Key characters
  16. to look out for are the `grave accent`, the `character <`, and empty
  17. lines between (never within) each of the note entries.
  18. <
  19. Resident in Hamilton, New Zealand.
  20. Compulsive contributor to MegaDisc.
  21. Loves receiving mail.
  22.  
  23. Click on the '->' gadget to go on to the next page in the
  24. current numbered 'Script' series, on the '<-' to go to the
  25. previous page, or on '??' to use another script series.
  26.  
  27. The left and right arrow keys have the same effect
  28. as the '<-' and '->' gadgets.  No keyboard equivalent
  29. of the '??' gadget has been included.
  30.  
  31. I have set my eight colours in the program. They are easy to
  32. change if your preferences in this matter differ from mine.
  33.  
  34. Highlighted chunks are active links to other places in the
  35. text - good for exploration and general browsing, but may be
  36. less efficient than linear reading for content learning.
  37.  
  38. Each page, with all its accompanying notes, uses a separate file.  
  39. The number which helps to identify it will automatically increment
  40. when you click on the '->' gadget or the right arrow key.  You are
  41. currently using Script1. The next page will use Script2, and so on.
  42.  
  43. The character `, as on à.  I CAN quote it on its own here,
  44. in a note text, without invoking its main-text function
  45. of marking a chunk of text as a candidate for underlining.
  46.  
  47. It marks the end of the main text, and the
  48. beginning of the entries for each note.
  49.  
  50. call SetDrMd(HO,JAM1)    
  51. call pat(18,42,"Click on any underlined chunk to see a note about it.",2)
  52. call SetDrMd(HO,JAM2)    
  53. call Rect(508,17,628,48,7,7)
  54. call SetAPen(HO,6)
  55. call Move(HO,115,15) ; call Draw(HO,278,15) ; call Draw(HO,278,29)
  56. call Draw(HO,115,29) ; call Draw(HO,115,15) ; call SetApen(HO,2)
  57. call Flood(HO,1,190,20) ; call SetApen(HO,1)
  58. do i=1 to 7;call APen(i);cy=40+i*10;call RectFill(HO,600,cy,620,cy+10);end
  59.  
  60.